home *** CD-ROM | disk | FTP | other *** search
/ Tux Racer / Tux Racer.iso / program files / Sunspire Studios / Tux Racer / courses / swiss / foggy_light.tcl < prev    next >
Encoding:
Text File  |  2001-09-09  |  1.3 KB  |  36 lines
  1. objcreate {s_course} {:course} \
  2.     {-light0_on} {1} \
  3.     {-light0_ambient} {0.490000009537 0.509999990463 0.589999973774 1.0} \
  4.     {-light0_diffuse} {0.370000004768 0.40000000596 0.460000008345 1.0} \
  5.     {-light0_specular} {0.20000000298 0.20000000298 0.20000000298 1.0} \
  6.     {-light0_position} {-1.0 1.0 -1.0 0.0}
  7.  
  8. set fog_dist 50
  9. set far_clip [tux_get_param forward_clip_distance]
  10. if { $fog_dist > $far_clip } {
  11.     set fog_dist $far_clip
  12. } 
  13.  
  14. tux_fog -on -mode linear -start -10 -end $fog_dist -colour { 0.78 0.81 0.93 1.0 }
  15.  
  16. tux_particle_colour { 0.88 0.92 1 1.0 }
  17.  
  18. tux_load_texture envmap ../swiss/swissovercast_left.png 0
  19.   
  20. tux_load_texture swiss-front ../swiss/swissovercast_front.png 0
  21. tux_load_texture swiss-right ../swiss/swissovercast_right.png 0
  22. tux_load_texture swiss-left ../swiss/swissovercast_left.png 0
  23. tux_load_texture swiss-back ../swiss/swissovercast_back.png 0
  24. tux_load_texture swiss-top ../swiss/swissovercast_top.png 0
  25. tux_load_texture swiss-bottom ../swiss/swissovercast_bottom.png 0
  26.  
  27. tux_bind_texture sky_front swiss-front
  28. tux_bind_texture sky_right swiss-right
  29. tux_bind_texture sky_left swiss-left
  30. tux_bind_texture sky_back swiss-back
  31. tux_bind_texture sky_top swiss-top
  32. tux_bind_texture sky_bottom swiss-bottom
  33.  
  34. objcreate {s_texture_cube} {:textures:cubemap} \
  35.     {-filename} {../swiss/swissovercast_}
  36.